﻿Public Class cOrden
    Private varCodigo_Analista As String
    Private varCodigo_Empresa As String
    Private varCodigo_Estudio As Long
    Private varCodigo_Usuario As String
    Private varFecha_Entrega As Date
    Private varFecha_Solicitud As Date
    Private varFecha_Visita As Date
    Private datos As New dOrden

    Public Property Codigo_Estudio As Long
        Get
            Return varCodigo_Estudio
        End Get
        Set(ByVal value As Long)
            varCodigo_Estudio = value
        End Set
    End Property

    Public Property Codigo_Empresa As String
        Get
            Return varCodigo_Empresa
        End Get
        Set(ByVal value As String)
            varCodigo_Empresa = value
        End Set
    End Property

    Public Property Fecha_Solicitud As Date
        Get
            Return varFecha_Solicitud
        End Get
        Set(ByVal value As Date)
            varFecha_Solicitud = value
        End Set
    End Property

    Public Property Fecha_Visita As Date
        Get
            Return varFecha_Visita
        End Get
        Set(ByVal value As Date)
            varFecha_Visita = value
        End Set
    End Property

    Public Property Fecha_Entrega As Date
        Get
            Return varFecha_Entrega
        End Get
        Set(ByVal value As Date)
            varFecha_Entrega = value
        End Set
    End Property

    Public Property Codigo_Analista As String
        Get
            Return varCodigo_Analista
        End Get
        Set(ByVal value As String)
            varCodigo_Analista = value
        End Set
    End Property

    Public Property Codigo_Usuario As String
        Get
            Return varCodigo_Usuario
        End Get
        Set(ByVal value As String)
            varCodigo_Usuario = value
        End Set
    End Property

    Public Sub Cargar(ByVal campo As String)
        Dim resultado As ArrayList

        resultado = datos.CargarMysql(campo)
        varCodigo_Estudio = resultado(0)
        varCodigo_Empresa = resultado(1)
        varFecha_Solicitud = resultado(2)
        varFecha_Visita = resultado(3)
        varFecha_Entrega = resultado(4)
        varCodigo_Analista = resultado(5)
        varCodigo_Usuario = resultado(6)
    End Sub

    Public Function Consultar(ByVal campo As String) As DataSet
        Dim resultado As DataSet
        resultado = datos.ConsultarMysql(campo)
        Return resultado
    End Function

    Public Sub Guardar()
        'datos.GuardarMysql(varCodigo_Usuario, varCodigo_Tipo_Identificacion, varNumero_Identificacion, varPrimer_Nombre, varSegundo_Nombre, varPrimer_Apellido, varSegundo_Apellido, varFecha_Nacimiento, varSexo)
    End Sub

End Class
